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RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
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RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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Jie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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& 

i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
1g ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
1 INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
t 

i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE » 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA . 
ie CORPORATION. * 
® 

® 

® 

* 

® 

® 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITH C 
TAL EQ Qui PREN 


i eee ee eee eeeeeeeeeeeeeteeHeHeteeeeeeteeeeeeeeeeeeneeeeeerereteteererereeeet 
' 

++ 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

! ABSTRACT: 

Defines Literals and macros used in defining, controlling, and 
accessing the dynamic memory pool. 


! ENVIRONMENT: Transportable BLISS 


! CREATION DATE: 1978 
' MODIFIED BY: 
004 KAD00004 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module penety idents, 
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! 

AUTHOR : Rich Friday 
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& copyright dates. Changed require files to BLISS Library. 
ie 


: Structures defining information stored in a dynamic memory pool. 


MACRO 
= VECTOR CPOOL_CNTRL $1762 OF 
PAD = VECTOR CPAD_CNTRL_SIZE) 2: 
LITERAL 
L_CNTRL_SIZE = 3, 'Size of POOL control area 
PAD_TNTRL_SIZE = 2; iSize of a Pooled Area Descriptor. 
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: Offsets into pool control area (POOL) ard pool area descriptor (PAD). 


LITERAL 
POOL_MAX_PADS = 0, ‘Maximum number of PADs that con es accommodated. 
POOL “Rete PADS = 1, ‘Current number of allocated P 
POOL-ACT-SIZE = 2; 'Number of BPVALS in pool vB ime ig area. 
IT TERAL 
PAD_SIZE = 0, 'Size of pooled area (BLISS VALUES). 
PAD_ADDRESS = 1; 'Start of pooled area. 


: The GET_SEG_ADDR macro returns the starting address of a segment from the 
aatpec't 180 p pool. 


GET_SEG_ADDR(AREA, INDEX) = 
BEGIN 


LOCAL 

PADTAB : REF VECTOR 
PADTAB = .AREA+POOL cutee SIZE*XUPVAL; 
;PADTABLPAD. CNTRL OS TZE* CINDEX=1) *PAD ADDRESS] 


: End of DMDEFS.REQ 
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